home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 April / macformat-049.iso / mac / Demos / Print Artist Demo / PA12-Mac.Dxr / 00351.ls < prev    next >
Encoding:
Text File  |  1996-10-03  |  759 b   |  24 lines
  1. on animSync startmem, endmem, whatSprite, whatsound, whenSound
  2.   global animSpeed
  3.   puppetSprite(whatSprite, 1)
  4.   set loopCounter to 0
  5.   if (whenSound = 1) and (string(whatsound) <> EMPTY) then
  6.     puppetSound(1, whatsound)
  7.   end if
  8.   repeat with x = the number of member startmem to the number of member endmem
  9.     set loopCounter to loopCounter + 1
  10.     if the platform = "Macintosh,PowerPC" then
  11.       wait(animSpeed)
  12.     end if
  13.     if loopCounter > 1 then
  14.       set the memberNum of sprite whatSprite to the number of member startmem + loopCounter
  15.     else
  16.       if loopCounter = 1 then
  17.         set the memberNum of sprite whatSprite to the number of member startmem
  18.       end if
  19.     end if
  20.     updateStage()
  21.   end repeat
  22.   puppetSprite(whatSprite, 0)
  23. end
  24.